/ Revista CD Expert 32 / CD Expert nº 32.iso / Unreal T / utdemo338.exe / System / UBrowser.u / UBrowserServerList_UBrowserIRCChannelPage_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 51 2a 63 6c 61 73 73 20 |........|Q*class |
|00000010| 55 42 72 6f 77 73 65 72 | 49 52 43 43 68 61 6e 6e |UBrowser|IRCChann|
|00000020| 65 6c 50 61 67 65 20 65 | 78 70 61 6e 64 73 20 55 |elPage e|xpands U|
|00000030| 42 72 6f 77 73 65 72 49 | 52 43 50 61 67 65 42 61 |BrowserI|RCPageBa|
|00000040| 73 65 3b 0d 0a 0d 0a 76 | 61 72 20 73 74 72 69 6e |se;....v|ar strin|
|00000050| 67 20 43 68 61 6e 6e 65 | 6c 4e 61 6d 65 3b 0d 0a |g Channe|lName;..|
|00000060| 76 61 72 20 55 42 72 6f | 77 73 65 72 49 52 43 53 |var UBro|wserIRCS|
|00000070| 79 73 74 65 6d 50 61 67 | 65 20 53 79 73 74 65 6d |ystemPag|e System|
|00000080| 50 61 67 65 3b 0d 0a 0d | 0a 76 61 72 20 55 42 72 |Page;...|.var UBr|
|00000090| 6f 77 73 65 72 49 52 43 | 55 73 65 72 4c 69 73 74 |owserIRC|UserList|
|000000a0| 42 6f 78 20 55 73 65 72 | 4c 69 73 74 3b 0d 0a 76 |Box User|List;..v|
|000000b0| 61 72 20 55 57 69 6e 64 | 6f 77 48 53 70 6c 69 74 |ar UWind|owHSplit|
|000000c0| 74 65 72 20 53 70 6c 69 | 74 74 65 72 3b 0d 0a 0d |ter Spli|tter;...|
|000000d0| 0a 66 75 6e 63 74 69 6f | 6e 20 43 72 65 61 74 65 |.functio|n Create|
|000000e0| 64 28 29 0d 0a 7b 0d 0a | 09 53 75 70 65 72 2e 43 |d()..{..|.Super.C|
|000000f0| 72 65 61 74 65 64 28 29 | 3b 0d 0a 0d 0a 09 53 70 |reated()|;.....Sp|
|00000100| 6c 69 74 74 65 72 20 3d | 20 55 57 69 6e 64 6f 77 |litter =| UWindow|
|00000110| 48 53 70 6c 69 74 74 65 | 72 28 43 72 65 61 74 65 |HSplitte|r(Create|
|00000120| 57 69 6e 64 6f 77 28 63 | 6c 61 73 73 27 55 57 69 |Window(c|lass'UWi|
|00000130| 6e 64 6f 77 48 53 70 6c | 69 74 74 65 72 27 2c 20 |ndowHSpl|itter', |
|00000140| 30 2c 20 30 2c 20 57 69 | 6e 57 69 64 74 68 2c 20 |0, 0, Wi|nWidth, |
|00000150| 57 69 6e 48 65 69 67 68 | 74 29 29 3b 0d 0a 09 55 |WinHeigh|t));...U|
|00000160| 73 65 72 4c 69 73 74 20 | 3d 20 55 42 72 6f 77 73 |serList |= UBrows|
|00000170| 65 72 49 52 43 55 73 65 | 72 4c 69 73 74 42 6f 78 |erIRCUse|rListBox|
|00000180| 28 53 70 6c 69 74 74 65 | 72 2e 43 72 65 61 74 65 |(Splitte|r.Create|
|00000190| 57 69 6e 64 6f 77 28 63 | 6c 61 73 73 27 55 42 72 |Window(c|lass'UBr|
|000001a0| 6f 77 73 65 72 49 52 43 | 55 73 65 72 4c 69 73 74 |owserIRC|UserList|
|000001b0| 42 6f 78 27 2c 20 30 2c | 20 30 2c 20 31 30 30 2c |Box', 0,| 0, 100,|
|000001c0| 20 57 69 6e 48 65 69 67 | 68 74 2c 20 53 65 6c 66 | WinHeig|ht, Self|
|000001d0| 29 29 3b 0d 0a 0d 0a 09 | 54 65 78 74 41 72 65 61 |));.....|TextArea|
|000001e0| 2e 53 65 74 50 61 72 65 | 6e 74 28 53 70 6c 69 74 |.SetPare|nt(Split|
|000001f0| 74 65 72 29 3b 0d 0a 09 | 53 70 6c 69 74 74 65 72 |ter);...|Splitter|
|00000200| 2e 4c 65 66 74 43 6c 69 | 65 6e 74 57 69 6e 64 6f |.LeftCli|entWindo|
|00000210| 77 20 3d 20 54 65 78 74 | 41 72 65 61 3b 0d 0a 09 |w = Text|Area;...|
|00000220| 53 70 6c 69 74 74 65 72 | 2e 52 69 67 68 74 43 6c |Splitter|.RightCl|
|00000230| 69 65 6e 74 57 69 6e 64 | 6f 77 20 3d 20 55 73 65 |ientWind|ow = Use|
|00000240| 72 4c 69 73 74 3b 0d 0a | 09 53 70 6c 69 74 74 65 |rList;..|.Splitte|
|00000250| 72 2e 53 70 6c 69 74 50 | 6f 73 20 3d 20 53 70 6c |r.SplitP|os = Spl|
|00000260| 69 74 74 65 72 2e 57 69 | 6e 57 69 64 74 68 20 2d |itter.Wi|nWidth -|
|00000270| 20 31 30 30 3b 0d 0a 09 | 53 70 6c 69 74 74 65 72 | 100;...|Splitter|
|00000280| 2e 4d 69 6e 57 69 6e 57 | 69 64 74 68 20 3d 20 31 |.MinWinW|idth = 1|
|00000290| 30 30 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |00;..}..|..functi|
|000002a0| 6f 6e 20 43 6c 6f 73 65 | 50 61 67 65 28 29 0d 0a |on Close|Page()..|
|000002b0| 7b 0d 0a 09 53 79 73 74 | 65 6d 50 61 67 65 2e 50 |{...Syst|emPage.P|
|000002c0| 61 72 74 43 68 61 6e 6e | 65 6c 28 43 68 61 6e 6e |artChann|el(Chann|
|000002d0| 65 6c 4e 61 6d 65 29 3b | 0d 0a 7d 0d 0a 0d 0a 66 |elName);|..}....f|
|000002e0| 75 6e 63 74 69 6f 6e 20 | 42 65 66 6f 72 65 50 61 |unction |BeforePa|
|000002f0| 69 6e 74 28 43 61 6e 76 | 61 73 20 43 2c 20 66 6c |int(Canv|as C, fl|
|00000300| 6f 61 74 20 58 2c 20 66 | 6c 6f 61 74 20 59 29 0d |oat X, f|loat Y).|
|00000310| 0a 7b 0d 0a 09 53 75 70 | 65 72 2e 42 65 66 6f 72 |.{...Sup|er.Befor|
|00000320| 65 50 61 69 6e 74 28 43 | 2c 20 58 2c 20 59 29 3b |ePaint(C|, X, Y);|
|00000330| 0d 0a 0d 0a 09 53 70 6c | 69 74 74 65 72 2e 53 65 |.....Spl|itter.Se|
|00000340| 74 53 69 7a 65 28 57 69 | 6e 57 69 64 74 68 2c 20 |tSize(Wi|nWidth, |
|00000350| 57 69 6e 48 65 69 67 68 | 74 20 2d 20 45 64 69 74 |WinHeigh|t - Edit|
|00000360| 43 6f 6e 74 72 6f 6c 2e | 57 69 6e 48 65 69 67 68 |Control.|WinHeigh|
|00000370| 74 29 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |t);..}..|..functi|
|00000380| 6f 6e 20 43 68 61 6e 6e | 65 6c 54 65 78 74 28 73 |on Chann|elText(s|
|00000390| 74 72 69 6e 67 20 4e 69 | 63 6b 2c 20 73 74 72 69 |tring Ni|ck, stri|
|000003a0| 6e 67 20 54 65 78 74 29 | 0d 0a 7b 0d 0a 09 54 65 |ng Text)|..{...Te|
|000003b0| 78 74 41 72 65 61 2e 41 | 64 64 54 65 78 74 28 22 |xtArea.A|ddText("|
|000003c0| 3c 22 24 4e 69 63 6b 24 | 22 3e 20 22 24 54 65 78 |<"$Nick$|"> "$Tex|
|000003d0| 74 29 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |t);..}..|..functi|
|000003e0| 6f 6e 20 43 68 61 6e 6e | 65 6c 41 63 74 69 6f 6e |on Chann|elAction|
|000003f0| 28 73 74 72 69 6e 67 20 | 4e 69 63 6b 2c 20 73 74 |(string |Nick, st|
|00000400| 72 69 6e 67 20 54 65 78 | 74 29 0d 0a 7b 0d 0a 09 |ring Tex|t)..{...|
|00000410| 54 65 78 74 41 72 65 61 | 2e 41 64 64 54 65 78 74 |TextArea|.AddText|
|00000420| 28 22 2a 20 22 24 4e 69 | 63 6b 24 22 20 22 24 54 |("* "$Ni|ck$" "$T|
|00000430| 65 78 74 29 3b 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |ext);..}|....func|
|00000440| 74 69 6f 6e 20 55 73 65 | 72 4e 6f 74 69 63 65 28 |tion Use|rNotice(|
|00000450| 73 74 72 69 6e 67 20 4e | 69 63 6b 2c 20 73 74 72 |string N|ick, str|
|00000460| 69 6e 67 20 54 65 78 74 | 29 0d 0a 7b 0d 0a 09 54 |ing Text|)..{...T|
|00000470| 65 78 74 41 72 65 61 2e | 41 64 64 54 65 78 74 28 |extArea.|AddText(|
|00000480| 22 2d 22 24 4e 69 63 6b | 24 22 2d 20 22 24 54 65 |"-"$Nick|$"- "$Te|
|00000490| 78 74 29 3b 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |xt);..}.|...funct|
|000004a0| 69 6f 6e 20 50 72 6f 63 | 65 73 73 49 6e 70 75 74 |ion Proc|essInput|
|000004b0| 28 73 74 72 69 6e 67 20 | 54 65 78 74 29 0d 0a 7b |(string |Text)..{|
|000004c0| 0d 0a 09 69 66 28 4c 65 | 66 74 28 54 65 78 74 2c |...if(Le|ft(Text,|
|000004d0| 20 34 29 20 7e 3d 20 22 | 2f 6d 65 20 22 29 0d 0a | 4) ~= "|/me ")..|
|000004e0| 09 7b 0d 0a 09 09 43 68 | 61 6e 6e 65 6c 41 63 74 |.{....Ch|annelAct|
|000004f0| 69 6f 6e 28 53 79 73 74 | 65 6d 50 61 67 65 2e 4e |ion(Syst|emPage.N|
|00000500| 69 63 6b 4e 61 6d 65 2c | 20 4d 69 64 28 54 65 78 |ickName,| Mid(Tex|
|00000510| 74 2c 20 34 29 29 3b 0d | 0a 09 09 53 79 73 74 65 |t, 4));.|...Syste|
|00000520| 6d 50 61 67 65 2e 4c 69 | 6e 6b 2e 53 65 6e 64 43 |mPage.Li|nk.SendC|
|00000530| 68 61 6e 6e 65 6c 41 63 | 74 69 6f 6e 28 43 68 61 |hannelAc|tion(Cha|
|00000540| 6e 6e 65 6c 4e 61 6d 65 | 2c 20 4d 69 64 28 54 65 |nnelName|, Mid(Te|
|00000550| 78 74 2c 20 34 29 29 3b | 0d 0a 09 7d 0d 0a 09 65 |xt, 4));|...}...e|
|00000560| 6c 73 65 0d 0a 09 69 66 | 28 4c 65 66 74 28 54 65 |lse...if|(Left(Te|
|00000570| 78 74 2c 20 31 29 20 3d | 3d 20 22 2f 22 29 0d 0a |xt, 1) =|= "/")..|
|00000580| 09 09 53 79 73 74 65 6d | 50 61 67 65 2e 50 72 6f |..System|Page.Pro|
|00000590| 63 65 73 73 49 6e 70 75 | 74 28 54 65 78 74 29 3b |cessInpu|t(Text);|
|000005a0| 0d 0a 09 65 6c 73 65 0d | 0a 09 7b 0d 0a 09 09 69 |...else.|..{....i|
|000005b0| 66 28 54 65 78 74 20 21 | 3d 20 22 22 29 0d 0a 09 |f(Text !|= "")...|
|000005c0| 09 7b 0d 0a 09 09 09 43 | 68 61 6e 6e 65 6c 54 65 |.{.....C|hannelTe|
|000005d0| 78 74 28 53 79 73 74 65 | 6d 50 61 67 65 2e 4e 69 |xt(Syste|mPage.Ni|
|000005e0| 63 6b 4e 61 6d 65 2c 20 | 54 65 78 74 29 3b 0d 0a |ckName, |Text);..|
|000005f0| 09 09 09 53 79 73 74 65 | 6d 50 61 67 65 2e 4c 69 |...Syste|mPage.Li|
|00000600| 6e 6b 2e 53 65 6e 64 43 | 68 61 6e 6e 65 6c 54 65 |nk.SendC|hannelTe|
|00000610| 78 74 28 43 68 61 6e 6e | 65 6c 4e 61 6d 65 2c 20 |xt(Chann|elName, |
|00000620| 54 65 78 74 29 3b 0d 0a | 09 09 7d 0d 0a 09 7d 0d |Text);..|..}...}.|
|00000630| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 50 |.}....fu|nction P|
|00000640| 61 72 74 65 64 43 68 61 | 6e 6e 65 6c 28 73 74 72 |artedCha|nnel(str|
|00000650| 69 6e 67 20 4e 69 63 6b | 29 0d 0a 7b 0d 0a 09 54 |ing Nick|)..{...T|
|00000660| 65 78 74 41 72 65 61 2e | 41 64 64 54 65 78 74 28 |extArea.|AddText(|
|00000670| 22 2a 2a 2a 20 22 24 4e | 69 63 6b 40 48 61 73 4c |"*** "$N|ick@HasL|
|00000680| 65 66 74 54 65 78 74 40 | 43 68 61 6e 6e 65 6c 4e |eftText@|ChannelN|
|00000690| 61 6d 65 24 22 2e 22 29 | 3b 0d 0a 09 55 73 65 72 |ame$".")|;...User|
|000006a0| 4c 69 73 74 2e 52 65 6d | 6f 76 65 55 73 65 72 28 |List.Rem|oveUser(|
|000006b0| 4e 69 63 6b 29 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |Nick);..|}....fun|
|000006c0| 63 74 69 6f 6e 20 4a 6f | 69 6e 65 64 43 68 61 6e |ction Jo|inedChan|
|000006d0| 6e 65 6c 28 73 74 72 69 | 6e 67 20 4e 69 63 6b 29 |nel(stri|ng Nick)|
|000006e0| 0d 0a 7b 0d 0a 09 54 65 | 78 74 41 72 65 61 2e 41 |..{...Te|xtArea.A|
|000006f0| 64 64 54 65 78 74 28 22 | 2a 2a 2a 20 22 24 4e 69 |ddText("|*** "$Ni|
|00000700| 63 6b 40 48 61 73 4a 6f | 69 6e 65 64 54 65 78 74 |ck@HasJo|inedText|
|00000710| 40 43 68 61 6e 6e 65 6c | 4e 61 6d 65 24 22 2e 22 |@Channel|Name$"."|
|00000720| 29 3b 0d 0a 09 55 73 65 | 72 4c 69 73 74 2e 41 64 |);...Use|rList.Ad|
|00000730| 64 55 73 65 72 28 4e 69 | 63 6b 29 3b 0d 0a 7d 0d |dUser(Ni|ck);..}.|
|00000740| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 4b 69 63 6b |...funct|ion Kick|
|00000750| 55 73 65 72 28 73 74 72 | 69 6e 67 20 4b 69 63 6b |User(str|ing Kick|
|00000760| 65 64 4e 69 63 6b 2c 20 | 73 74 72 69 6e 67 20 4b |edNick, |string K|
|00000770| 69 63 6b 65 72 2c 20 73 | 74 72 69 6e 67 20 52 65 |icker, s|tring Re|
|00000780| 61 73 6f 6e 29 0d 0a 7b | 0d 0a 09 54 65 78 74 41 |ason)..{|...TextA|
|00000790| 72 65 61 2e 41 64 64 54 | 65 78 74 28 22 2a 2a 2a |rea.AddT|ext("***|
|000007a0| 20 22 24 4b 69 63 6b 65 | 64 4e 69 63 6b 40 57 61 | "$Kicke|dNick@Wa|
|000007b0| 73 4b 69 63 6b 65 64 42 | 79 54 65 78 74 40 4b 69 |sKickedB|yText@Ki|
|000007c0| 63 6b 65 72 24 22 20 28 | 22 24 52 65 61 73 6f 6e |cker$" (|"$Reason|
|000007d0| 24 22 29 22 29 3b 0d 0a | 09 55 73 65 72 4c 69 73 |$")");..|.UserLis|
|000007e0| 74 2e 52 65 6d 6f 76 65 | 55 73 65 72 28 4b 69 63 |t.Remove|User(Kic|
|000007f0| 6b 65 64 4e 69 63 6b 29 | 3b 0d 0a 7d 0d 0a 0d 0a |kedNick)|;..}....|
|00000800| 66 75 6e 63 74 69 6f 6e | 20 55 73 65 72 49 6e 43 |function| UserInC|
|00000810| 68 61 6e 6e 65 6c 28 73 | 74 72 69 6e 67 20 4e 69 |hannel(s|tring Ni|
|00000820| 63 6b 29 0d 0a 7b 0d 0a | 09 55 73 65 72 4c 69 73 |ck)..{..|.UserLis|
|00000830| 74 2e 41 64 64 55 73 65 | 72 28 4e 69 63 6b 29 3b |t.AddUse|r(Nick);|
|00000840| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000850| 43 68 61 6e 67 65 64 4e | 69 63 6b 28 73 74 72 69 |ChangedN|ick(stri|
|00000860| 6e 67 20 4f 6c 64 4e 69 | 63 6b 2c 20 73 74 72 69 |ng OldNi|ck, stri|
|00000870| 6e 67 20 4e 65 77 4e 69 | 63 6b 29 0d 0a 7b 0d 0a |ng NewNi|ck)..{..|
|00000880| 09 54 65 78 74 41 72 65 | 61 2e 41 64 64 54 65 78 |.TextAre|a.AddTex|
|00000890| 74 28 22 2a 2a 2a 20 22 | 24 4f 6c 64 4e 69 63 6b |t("*** "|$OldNick|
|000008a0| 40 4e 6f 77 4b 6e 6f 77 | 6e 41 73 54 65 78 74 40 |@NowKnow|nAsText@|
|000008b0| 4e 65 77 4e 69 63 6b 24 | 22 2e 22 29 3b 0d 0a 09 |NewNick$|".");...|
|000008c0| 55 73 65 72 4c 69 73 74 | 2e 43 68 61 6e 67 65 4e |UserList|.ChangeN|
|000008d0| 69 63 6b 28 4f 6c 64 4e | 69 63 6b 2c 20 4e 65 77 |ick(OldN|ick, New|
|000008e0| 4e 69 63 6b 29 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |Nick);..|}....fun|
|000008f0| 63 74 69 6f 6e 20 55 73 | 65 72 51 75 69 74 28 73 |ction Us|erQuit(s|
|00000900| 74 72 69 6e 67 20 4e 69 | 63 6b 2c 20 73 74 72 69 |tring Ni|ck, stri|
|00000910| 6e 67 20 52 65 61 73 6f | 6e 29 0d 0a 7b 0d 0a 09 |ng Reaso|n)..{...|
|00000920| 54 65 78 74 41 72 65 61 | 2e 41 64 64 54 65 78 74 |TextArea|.AddText|
|00000930| 28 22 2a 2a 2a 20 22 24 | 4e 69 63 6b 40 51 75 69 |("*** "$|Nick@Qui|
|00000940| 74 54 65 78 74 40 22 28 | 22 24 52 65 61 73 6f 6e |tText@"(|"$Reason|
|00000950| 24 22 29 2e 22 29 3b 0d | 0a 09 55 73 65 72 4c 69 |$").");.|..UserLi|
|00000960| 73 74 2e 52 65 6d 6f 76 | 65 55 73 65 72 28 4e 69 |st.Remov|eUser(Ni|
|00000970| 63 6b 29 3b 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |ck);..}.|...funct|
|00000980| 69 6f 6e 20 43 68 61 6e | 67 65 4d 6f 64 65 28 73 |ion Chan|geMode(s|
|00000990| 74 72 69 6e 67 20 4e 69 | 63 6b 2c 20 73 74 72 69 |tring Ni|ck, stri|
|000009a0| 6e 67 20 4d 6f 64 65 29 | 0d 0a 7b 0d 0a 09 54 65 |ng Mode)|..{...Te|
|000009b0| 78 74 41 72 65 61 2e 41 | 64 64 54 65 78 74 28 22 |xtArea.A|ddText("|
|000009c0| 2a 2a 2a 20 22 24 4e 69 | 63 6b 40 53 65 74 73 4d |*** "$Ni|ck@SetsM|
|000009d0| 6f 64 65 54 65 78 74 24 | 22 3a 20 22 24 4d 6f 64 |odeText$|": "$Mod|
|000009e0| 65 29 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |e);..}..|..functi|
|000009f0| 6f 6e 20 43 68 61 6e 67 | 65 4f 70 28 73 74 72 69 |on Chang|eOp(stri|
|00000a00| 6e 67 20 4e 69 63 6b 2c | 20 62 6f 6f 6c 20 62 4f |ng Nick,| bool bO|
|00000a10| 70 29 0d 0a 7b 0d 0a 09 | 55 73 65 72 4c 69 73 74 |p)..{...|UserList|
|00000a20| 2e 43 68 61 6e 67 65 4f | 70 28 4e 69 63 6b 2c 20 |.ChangeO|p(Nick, |
|00000a30| 62 4f 70 29 3b 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |bOp);..}|....func|
|00000a40| 74 69 6f 6e 20 43 68 61 | 6e 67 65 56 6f 69 63 65 |tion Cha|ngeVoice|
|00000a50| 28 73 74 72 69 6e 67 20 | 4e 69 63 6b 2c 20 62 6f |(string |Nick, bo|
|00000a60| 6f 6c 20 62 56 6f 69 63 | 65 29 0d 0a 7b 0d 0a 09 |ol bVoic|e)..{...|
|00000a70| 55 73 65 72 4c 69 73 74 | 2e 43 68 61 6e 67 65 56 |UserList|.ChangeV|
|00000a80| 6f 69 63 65 28 4e 69 63 | 6b 2c 20 62 56 6f 69 63 |oice(Nic|k, bVoic|
|00000a90| 65 29 3b 0d 0a 7d 0d 0a | 0d 0a 00                |e);..}..|...     |
+--------+-------------------------+-------------------------+--------+--------+